home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)sf85.d64 / whirlybird.c (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  5KB  |  34 lines
  1. 10 REM           WHIRLYBIRD
  2. 11 REM
  3. 12 REM          FRANK LINDSEY
  4. 13 REM          RT. 14 BOX 74
  5. 14 REM          BOWLING GREEN
  6. 15 REM          KENTUCKY, USA
  7. 16 REM          (502)781-3117
  8. 17 REM
  9. 18 REM LET'S HEAR IT FOR FREE SOFTWARE!
  10. 19 REM
  11. 20 REM LET'S ALSO HEAR IT FOR MAKING A
  12. 21 REM BUCK. WATCH FOR MY OTHER COMMER-
  13. 22 REM CIALLY AVAILABLE PROGRAMS.
  14. 23 REM
  15. 100 PRINT"[147][142]":POKE53280,0:POKE53281,0
  16. 200 PRINT" PREVENT ENEMY HELICOPTERS FROM FLYING"
  17. 210 PRINT"      OUT OF VIEW ON EITHER SIDE."
  18. 220 PRINT" ENEMY HELICOPTERS CAN BE SHOT WITH THE"
  19. 230 PRINT"     CONTINUOUS FIRE MACHINE GUN OR
  20. 240 [153]"             WHEN NECESSARY
  21. 250 PRINT"   WITH ONE OF FIVE NUCLEAR MISSLES."
  22. 260 PRINT"    IF ENEMY HELICOPTER REACHES SIDE"
  23. 270 PRINT"         THEN YOU WILL BE SHOT."
  24. 280 PRINT"        *PRESS ANY KEY TO START*"
  25. 320 C=2
  26. 330 L=L+1:IFL=3THENL=0:C=C+1:IFC=16THENC=1
  27. 340 C1=C:L1=L
  28. 350 PRINT"":K=0
  29. 360 POKE646,C1:PRINT"               WHIRLYBIRD
  30. 365 [161]A$:[139]A$[179][177]""[167][158]3022
  31. 370 L1[178]L1[170]1:[139]L1[178]3[167]L1[178]0:C1[178]C1[170]1:[139]C1[178]16[167]C1[178]1
  32. 380 K[178]K[170]1:[139]K[179][177]8[167]360
  33. 390 [137]330
  34.